home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / f2c / may_5_92.lha / f2c.VMay_5_1992 / libI77 / sfe.c < prev    next >
C/C++ Source or Header  |  1992-05-07  |  555b  |  29 lines
  1. /* sequential formatted external common routines*/
  2. #include "f2c.h"
  3. #include "fio.h"
  4.  
  5. extern char *fmtbuf;
  6.  
  7. integer e_rsfe()
  8. {    int n;
  9.     n=en_fio();
  10.     if (cf == stdout)
  11.         fflush(stdout);
  12.     else if (cf == stderr)
  13.         fflush(stderr);
  14.     fmtbuf=NULL;
  15.     return(n);
  16. }
  17. c_sfe(a) cilist *a; /* check */
  18. {    unit *p;
  19.     if(a->ciunit >= MXUNIT || a->ciunit<0)
  20.         err(a->cierr,101,"startio");
  21.     p = &units[a->ciunit];
  22.     if(p->ufd==NULL && fk_open(SEQ,FMT,a->ciunit)) err(a->cierr,114,"sfe")
  23.     if(!p->ufmt) err(a->cierr,102,"sfe")
  24.     return(0);
  25. }
  26. integer e_wsfe()
  27. {    return(e_rsfe());
  28. }
  29.